home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / gnu / a2_0bEmacs_bin.lha / Emacs-19.25 / .emacs next >
Lisp/Scheme  |  1995-01-10  |  3KB  |  86 lines
  1. (setq version-control nil)
  2. (define-key global-map [f10] 'save-buffer)
  3. (define-key global-map [S-f10] 'write-file)
  4. (define-key global-map [f9] 'switch-to-buffer)
  5. (define-key global-map [S-f9] 'list-buffers)
  6. (define-key global-map [f8] 'find-file)
  7. (define-key global-map [S-f8] 'insert-file)
  8. (define-key global-map [f5] 'eval-current-buffer)
  9. (define-key global-map [S-f5] 'see-chars)
  10. (define-key global-map [f1] 'delete-other-windows)
  11. (define-key global-map [S-f1] 'amiga-my-resize)
  12. (define-key global-map [S-f2] 'amiga-my-screen)
  13. (define-key global-map [f6] 'other-window)
  14. (define-key global-map [S-f5] 'goto-line)
  15. (define-key global-map [f2] 'split-window-vertically)
  16. (define-key global-map [f3] 'load-my-customer-database)
  17. (define-key global-map [S-left] 'backward-word)
  18. (define-key global-map [S-right] 'forward-word)
  19. (define-key global-map [f3] 'auto-fill-mode)
  20.  
  21. ;;; This function should resize to full screen.
  22. (defun amiga-my-resize ()
  23.   "Resize emacs window to full screen"
  24.   (interactive)
  25.   (let ((scr-size (amiga-get-screen-geometry))
  26.         x y xs ys)
  27.     (setq x (nth 1 scr-size))
  28.     (setq y (nth 2 scr-size))
  29.     (setq xs (nth 3 scr-size))
  30.     (setq ys (nth 4 scr-size))
  31.     (amiga-set-geometry x (1+ y) xs (1- ys))))
  32. ;;; Put emacs on screen "Emacs"
  33. (defun amiga-my-screen ()
  34.   "Put emacs on screen Emacs"
  35.   (interactive)
  36.   (amiga-set-geometry 0 0 600 200 "Emacs")
  37.   (amiga-my-resize))
  38.  
  39. ;;; If you're going to use emacs mail things, you'll need some of these.
  40. ;;; Otherwise, they're harmless
  41.  
  42. ;; Mailer settings
  43. ;(setq mail-interactive t)
  44. (setq sendmail-program "uucp:c/sendmail")
  45. (setq mail-archive-filename "uumail:mbox")
  46. ;(setq mail-default-reply-to "dgilbert%gamiga@dweomer.org")
  47. (setq vm-movemail-program "gnuemacs:etc/movemail")
  48. (autoload 'db-find-file "database" "EDB database package" t)
  49. (setq default-tab-width 4)
  50. ;; SuperCite stuff.
  51. (setq sc-citation-leader "")
  52. (setq mail-yank-hooks 'sc-cite-original)
  53. (setq mh-yank-hooks 'sc-cite-original)
  54. (setq mail-setup-hook 'my-sc-overload-hook-funk)
  55. (setq news-reply-mode-hook 'my-sc-overload-hook-funk)
  56. (setq mh-letter-mode-hook 'my-sc-overload-hook-funk)
  57. (defun my-sc-overload-hook-funk ()
  58.   (require 'sc-oloads)
  59.   (sc-overload-functions))
  60.  
  61. ;;Gnus stuff
  62. ;; These variables are for gnus.
  63. (setq nnspool-spool-directory "uunews:")
  64. (setq nnspool-active-file "uulib:news/active")
  65. (setq nnspool-history-file "uulib:news/history")
  66. (setq nnspool-inews-program "uucp:c/inews")
  67. (setq mhspool-list-directory-switches "-R1")
  68. (setq news-inews-program "uucp:c/inews")
  69. (setq news-path "uunews:")
  70. (setq fill-prefix ">")
  71. (setq gnus-nntp-service nil)
  72. (setq gnus-nntp-server "jaywon.pci.on.ca")
  73. (autoload 'gnus "gnus-speedups" "Gnus news reader" t)
  74. (autoload 'gnus-post-news "gnuspost" "Post network news" t)
  75.  
  76. (setq gnus-startup-file (expand-file-name "~/.newsrc"))
  77. (setq vm-spool-files (list (concat "uumail:" (user-login-name))))
  78.  
  79.  
  80. ;; Set this to your system name, if you want.  I think it's used by
  81. ;; news and mail.
  82.  
  83. (defun system-name () (interactive) "jaywon.pci.on.ca")
  84.  
  85. (setq shell-file-name "sh")
  86.